home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
barmenu.zip
/
MENUDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-13
|
582b
|
24 lines
Program MenuDemo;
Uses MenuUnit, Crt;
Var
Choice: Integer;
M: BBMenu;
BEGIN
CLRSCR;
M.Init( 25, 7, 18);
M.AddPrompt('Open a New File');
M.AddPrompt('Existing File');
M.AddPrompt('Close A File');
M.AddPrompt('Quit');
Choice:= M.GetChoice;
GotoXY(1, 24); ClrEol;
Case Choice OF
0: Writeln('No Choice Was Made');
1: Writeln('Procedure NewFile Should Be Called');
2: Writeln('Procedure ExistingFile Should Be Called');
3: Writeln('Procedure CloseFile Should Be Called');
4: Writeln('Quitting ...');
END;
M.Done;
END.